home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Dev / basic / blitzgtfix.lha / BlitzGTFix / BBGTLib_Examples / gtcheckbox.bb2 < prev    next >
Text File  |  2002-01-27  |  772b  |  40 lines
  1. WbToScreen 3
  2. Use Screen 3
  3.  
  4. LoadFont 2,"garnet.font",9
  5. Use IntuiFont 2
  6.  
  7.  
  8. ; DONT USE COMMANDS WHICH USE A3 AS A PARAMETER DIRECTLY WITH HEX$
  9. ; COS IT GOES SCREWY
  10.  
  11.  
  12. foo.l=GTCheckBox(0,1,20,20,15,15,"Normal",#PLACETEXT_RIGHT)
  13. NPrint Hex$(foo)
  14.  
  15. foo.l=GTCheckBox(0,2,20,40,15,15,"Disabled",#PLACETEXT_RIGHT|$40)
  16. NPrint Hex$(foo)
  17.  
  18. foo.l=GTCheckBox(0,3,20,60,15,15,"Checked",#PLACETEXT_RIGHT|$100)
  19. NPrint Hex$(foo)
  20.  
  21. foo.l=GTCheckBox(0,4,20,80,45,45,"Scaled",#PLACETEXT_RIGHT|$200)
  22. NPrint Hex$(foo)
  23.  
  24. AddIDCMP #CHECKBOXIDCMP
  25.  
  26. Window 0,0,0,400,300,$100f,"jjlk",-1,-1
  27. DefaultOutput
  28.  
  29. AttachGTList 0,0
  30. While ev.l<>#IDCMP_CLOSEWINDOW
  31.     ev.l=WaitEvent
  32.     Select ev
  33.         Case #IDCMP_GADGETUP
  34.             NPrint "Checkbox pressed - ",EventCode
  35.     End Select
  36. Wend
  37. DetachGTList 0
  38. End
  39.  
  40.